home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 2002 November / SGI Freeware 2002 November - Disc 1.iso / dist / fw_exmh.idb / usr / freeware / lib / exmh-2.5 / sound.tcl.z / sound.tcl
Text File  |  2002-07-08  |  2KB  |  91 lines
  1. # 
  2. # sound.tcl
  3. #
  4. # Audio feedback
  5. #
  6. # Copyright (c) 1993 Xerox Corporation.
  7. # Use and copying of this software and preparation of derivative works based
  8. # upon this software are permitted. Any distribution of this software or
  9. # derivative works must comply with all applicable United States export
  10. # control laws. This software is made available AS IS, and Xerox Corporation
  11. # makes no warranty about the software, its performance or its conformity to
  12. # any specification.
  13.  
  14. proc Sound_Off {} {
  15.     global sound
  16.     set oldValue $sound(enabled)
  17.     set sound(enabled) 0
  18.     return $oldValue
  19. }
  20. proc Sound_On {} {
  21.     global sound
  22.     if {$sound(cmd) != {} || $sound(bell)} {
  23.     set sound(enabled) 1
  24.     }
  25. }
  26. proc Sound_Feedback { delta } {
  27.     global sound exmh
  28.     if {$sound(enabled) && $sound(bell)} {
  29.         if [catch bell] {
  30.             catch blt_bell
  31.         }
  32.         Exmh_Debug bell
  33.         return
  34.     }
  35.     if {!$sound(enabled) || ($sound(cmd) == {})} {
  36.         return
  37.     }
  38.  
  39.     if [string match ~* $sound(newMsg)] {
  40.         set sound(newMsg) [glob -nocomplain $sound(newMsg)]
  41.     }
  42.  
  43.     if ![string match /*  $sound(newMsg)] {
  44.         set sound(newMsg) $exmh(library)/$sound(newMsg)
  45.     }
  46.     set num 0
  47.     while {$delta > 0} {
  48.         incr num
  49.         set delta [expr $delta/4]
  50.     }
  51.     set cmd [concat exec $sound(cmd)]
  52.     if {$sound(multifile)} {
  53.         for {set i 0} {$i < $num} {incr i} {
  54.             lappend cmd $sound(newMsg)
  55.         }
  56.         if [catch {
  57.             eval $cmd &
  58.         } err] {
  59.             Exmh_Debug "Sound_Feedback: $err"
  60.         }
  61.     } else {
  62.         for {set i 0} {$i < $num} {incr i} {
  63.             if [catch {
  64.                 eval $cmd $sound(newMsg)
  65.             } err] {
  66.                 Exmh_Debug "Sound_Feedback: $err"
  67.             }
  68.         }
  69.     }
  70. }
  71.  
  72. proc Sound_Error {  } {
  73.     global sound exmh
  74.     if {!$sound(enabled) || ($sound(cmd) == {})} {
  75.         return
  76.     }
  77.     if [string match ~* $sound(error)] {
  78.         set sound(error) [glob -nocomplain $sound(error)]
  79.     }
  80.     if ![string match /*  $sound(error)] {
  81.         set sound(error) $exmh(library)/$sound(error)
  82.     }
  83.     if [catch {
  84.         eval exec $sound(cmd) $sound(error)
  85.     } err] {
  86.         Exmh_Debug "Sound_Error: $err"
  87.     }
  88. }
  89.  
  90.  
  91.